#!perl -T

use strict;
use warnings;
use Test::More tests => 1;;
use Test::BoostUnit  qw(:ALL);

like(makeOpenTestSuite ("TestSuite1"), qr|<TestSuite name=\"TestSuite1\">|ms, "makeOpenTestSuite - One Message");

